From c015d744b943da57ed241f03630fae83bf3d9a7a Mon Sep 17 00:00:00 2001 From: Markus Rost Date: Wed, 22 May 2002 23:29:23 +0000 Subject: [PATCH] (file-newest-backup): Use file-name-sans-versions. --- lisp/files.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/files.el b/lisp/files.el index 9169ae9193b..b01472171a9 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -3011,7 +3011,8 @@ saying what text to write." ;; `make-backup-file-name' will get us the right directory for ;; ordinary or numeric backups. It might create a directory for ;; backups as a side-effect, according to `backup-directory-alist'. - (let* ((filename (make-backup-file-name filename)) + (let* ((filename (file-name-sans-versions + (make-backup-file-name filename))) (file (file-name-nondirectory filename)) (dir (file-name-directory filename)) (comp (file-name-all-completions file dir)) -- 2.30.2